home *** CD-ROM | disk | FTP | other *** search
/ Productivity Lifestyle Kn…ge Entertainment Utility / Productivity Lifestyle Knowledge (Starshine)(STARD1)(1999).BIN / Aveo / Attune / ThirdParty / IE50 / ICW.CAB / Icwscrpt.exe / RCDATA / CABINET / CIS.SCP next >
Text File  |  1995-12-31  |  733b  |  41 lines
  1. ;
  2. ; This is a script file that demonstrates how
  3. ; to establish a PPP connection with Compuserve,
  4. ; which requires changing the port settings to
  5. ; log in.
  6. ;
  7.  
  8.  
  9. ; Main entry point to script
  10. ;
  11. proc main
  12.  
  13.    ; Set the port settings so we can wait for
  14.    ; non-gibberish text.
  15.  
  16.    set port databits 7
  17.    set port parity even
  18.  
  19.    transmit "^M"
  20.  
  21.    waitfor "Host Name:"
  22.    transmit "CIS^M"
  23.  
  24.    waitfor "User ID:"
  25.    transmit $USERID, raw
  26.    transmit "/go:pppconnect^M"
  27.  
  28.    waitfor "Password: "
  29.    transmit $PASSWORD, raw
  30.    transmit "^M"
  31.  
  32.    waitfor "One moment please..."
  33.  
  34.    ; Set the port settings back to allow successful
  35.    ; negotiation.
  36.  
  37.    set port databits 8
  38.    set port parity none
  39.  
  40. endproc
  41.